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

Last change on this file was 2, checked in by oldcode, 24 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.5 KB
Line 
1#include <stdio.h>
2#include <string.h>
3#include <aisc.h>
4#include "aisc_extern_privat.h"
5
6extern int aisc_d_flags[];
7
8#ifdef __cplusplus
9extern "C" {
10#endif
11   
12    const char *aisc_get_object_names(int i);
13   
14#ifdef __cplusplus
15}
16#endif
17
18dll_public *create_dll_public()
19{
20    return 0;
21}
22
23int move_dll_header(dll_header *sobj,dll_header *dobj){
24    dobj->ident = (char *)strdup(sobj->ident);
25    return 0;
26}
27
28int get_COMMON_CNT(dll_header *THIS){
29    int key = (int)(THIS->key) >> 16;
30    if (aisc_d_flags[key] == 0) return -1;
31    if(!((THIS->parent))){return 0; }
32    return THIS->parent->cnt;
33}
34
35dllheader_ext *get_COMMON_PARENT(dll_header *THIS){
36    int key = (int)(THIS->key) >> 16;
37    if (aisc_d_flags[key] == 0) return 0;
38    if(!((THIS->parent))){return 0; }
39    return (dllheader_ext *)THIS->parent->parent;
40}
41
42dllheader_ext *get_COMMON_LAST(dll_header *THIS){
43    int key = (int)(THIS->key) >> 16;
44    if (aisc_d_flags[key] == 0) return 0;
45    if(!((THIS->parent))){return 0; }
46    return (dllheader_ext *)THIS->parent->last;
47}
48
49char *aisc_get_keystring(int *obj) {
50    int i;
51    i = *obj>>16;
52    return (char*)aisc_get_object_names(i);
53}
54
55char *aisc_get_keystring_dll_header(dll_header *x) { return aisc_get_keystring((int*)x); }
56/*  char *aisc_get_keystring_AN_revers(AN_revers *x) { return aisc_get_keystring((int*)x); } */
57/*  char *aisc_get_keystring_AN_shorts(AN_shorts *x) { return aisc_get_keystring((int*)x); } */
58/*  char *aisc_get_keystring_AN_local(AN_local *x) { return aisc_get_keystring((int*)x); } */
Note: See TracBrowser for help on using the repository browser.