OberonCore

PROCEDURE ExportVar*(mod: Module; IN name: STRING; addr: INTEGER);
   VAR sym: Symbol;
BEGIN
   NEW(sym);
   sym.name := name$;
   sym.sect := mod.vars;
   sym.addr := addr;
   sym.next := expList;
   expList := sym;
   INC(expCount);
END ExportVar;

   
PROCEDURE CollectExports(mod: Module);
VAR p, numobj: INTEGER;
      id, vis, mode, addr: INTEGER;
      name: StrPtr;
BEGIN
   IF ~mod.exported THEN
      GetDir(mod, p, numobj);
      WHILE numobj > 0 DO
         id := DWord(mod,  p + 8);   
         mode := id MOD 16;
         vis := id DIV 16 MOD 16;
         IF (vis # mInternal) THEN
            name := GetPName(mod, id DIV 256);
            addr := DWord(mod,  p + 4);
            IF (mode = mProc) THEN   LB.ExportProc(mod, name$, addr)   
            ELSIF (mode = mVar) THEN   LB.ExportVar(mod, name$, addr)   
            END;
         END;
         DEC(numobj); INC(p, 16)
      END;
      mod.exported := TRUE;
   END;
END CollectExports;      

VAR  stdin*, stdout*, stderr* : Libc.PtrFILE;

#define stdin   (&__sF[0])
#define stdout  (&__sF[1])
#define stderr  (&__sF[2])

MODULE LinLibc;

   ...

   VAR
      (* OpenBSD: stdin, stdout, stderr *)
         __sF*: ARRAY [untagged] 3 OF FILE; (* OpenBSD /usr/include/stdio.h *)
            (*
               stdin = SYSTEM.ADR(__sF[0])
               stdout = SYSTEM.ADR(__sF[1])
               stderr = SYSTEM.ADR(__sF[2])
            *)

   ...

END LinLibc.

VAR stdin* ["__stdinp"]: PtrFILE;