Discussion :

[Invité]

Yep, bonjour,

je voulais importer outb pour écrire sur le port parallèle mais ça marche pas.

Code ada :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
with Interfaces.C;
use Interfaces.C;
procedure Main is
 
   procedure My_Outb(Data : in unsigned;
                  Port : in Integer);
 
   pragma Import (C, My_Outb, "outb");
....
....
....

Résultat ::=

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
gcc-3.4 -c main.adb
gnatbind -x main.ali
gnatlink main.ali
./main.o(.text+0x52): In function `_ada_main':
: undefined reference to `outb'
./main.o(.text+0x78): In function `_ada_main':
: undefined reference to `outb'
collect2: ld a retourné 1 code d'état d'exécution
gnatlink: cannot call /usr/bin/gcc-3.4
gnatmake: *** link failed.

je suis sur une station Gnu/Linux Debian.

Au mieux, j'aimerai bien me passer d'importer des trucs en C.
C'est une autre Histoire.

Merci, bonne journée à chacun.

[PRomu@ld]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
gaia:~ rperrot$ man outb
No manual entry for outb

Ca n'est pas une fonction standard du C. Il faut donc que tu rajoutes la bibliothèque tu utilises à l'édition des liens. (en gros rajoutes les -L et -l lors de la compilation)

[Invité]

Merci PRomu@ld,
je pensais pourtant avoir déjà écris ce code, bref.
Du coup, il faut que je trouve éventuellement deux choses, ... le nom de la bibliothèque et les options de compilations ad hoc.

Si non, une solution de codage sans importation C, mais le compilateur accepte même pas les exemple que j'ai sous la main. Alors je comprend pas.

[Invité]

Yep, bonjour,

Oui, comment écrire sur le port parallèle d'un Compatible IBM PC avec Ada ?

Il me semble que c'est spécifié dans le Grady Booch "Ingénierie du logiciel avec Ada" page 391. Mais lorsque je propose les instructions spécifiées à mon compilateur, celui ci me dis que je fais une erreur de syntaxe.

PS : Cela fait des année que je n'ai plus pondu le code en question, je m'y remet pour vous fournir le code en question dans la journée.

Yep, bonne journée à chacun

[Invité]

Il me semble que c'est spécifié dans le Grady Booch "Ingénierie du logiciel avec Ada" page 391.

Non, finalement, ça n'a pas l'air d'être ça, pas de code donc !

Il doit bien y avoir moyen d'écrire sur le port parallèle avec Ada tout de même.

[Invité]

Yep,

Y aurait- il moyen de savoir si je n'ai pas de réponse parce que c'est impossible, parce que personne ne sais, parce que c'est lourd, ou bien trop demander ?

Merci

[PRomu@ld]

Le tout c'est de lier ton executable avec la bibliothèque qui contient outb.

[Invité]

Yep,

Merci pour ta réponse.
Mon problème c'est que d'une part, je ne sais pas lier une bibliothèque C avec du code Ada et surtout que out b est une macro contenu dans un fichier d'entête -> asm/io.h.

Alors, est- il possible de l'utiliser quand même ?

[PRomu@ld]

Si c'est une macro alors la réponse est non.

[Invité]

Yep,

Merci,

Pour une implémentation avec Ada, aurais- tu un tuyau ?

[PRomu@ld]

Si la macro n'est pas trop complexe, récupère le code et implémente le directement en ADA, je suppose qu'il s'agit de code assembleur. Dans ce cas, utilise le package system.machine_code :

http://www.adacore.com/wp-content/fi...at_ugn_33.html

[Invité]

Yep,
C'est une idée ! Merci. Je vais jeter un œil.
Merci

[Invité]

Yep,

Voila le code de io.h qui doit être du GNUC.
Malheureusement, je n'y comprend absolument rien.

Code C :

Sélectionner tout - Visualiser dans une fenêtre à part

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
 
#ifndef _ASM_IO_H
#define _ASM_IO_H
 
#include <linux/string.h>
#include <linux/compiler.h>
 
/*
 * This file contains the definitions for the x86 IO instructions
 * inb/inw/inl/outb/outw/outl and the "string versions" of the same
 * (insb/insw/insl/outsb/outsw/outsl). You can also use "pausing"
 * versions of the single-IO instructions (inb_p/inw_p/..).
 *
 * This file is not meant to be obfuscating: it's just complicated
 * to (a) handle it all in a way that makes gcc able to optimize it
 * as well as possible and (b) trying to avoid writing the same thing
 * over and over again with slight variations and possibly making a
 * mistake somewhere.
 */
 
/*
 * Thanks to James van Artsdalen for a better timing-fix than
 * the two short jumps: using outb's to a nonexistent port seems
 * to guarantee better timings even on fast machines.
 *
 * On the other hand, I'd like to be sure of a non-existent port:
 * I feel a bit unsafe about using 0x80 (should be safe, though)
 *
 *              Linus
 */
 
 /*
  *  Bit simplified and optimized by Jan Hubicka
  *  Support of BIGMEM added by Gerhard Wichert, Siemens AG, July 1999.
  *
  *  isa_memset_io, isa_memcpy_fromio, isa_memcpy_toio added,
  *  isa_read[wl] and isa_write[wl] fixed
  *  - Arnaldo Carvalho de Melo <acme@conectiva.com.br>
  */
 
#define IO_SPACE_LIMIT 0xffff
 
#define XQUAD_PORTIO_BASE 0xfe400000
#define XQUAD_PORTIO_QUAD 0x40000  /* 256k per quad. */
 
#ifdef __KERNEL__
 
#include <asm-generic/iomap.h>
 
#include <linux/vmalloc.h>
 
/*
 * Convert a physical pointer to a virtual kernel pointer for /dev/mem
 * access
 */
#define xlate_dev_mem_ptr(p)    __va(p)
 
/*
 * Convert a virtual cached pointer to an uncached pointer
 */
#define xlate_dev_kmem_ptr(p)   p
 
/**
 *      virt_to_phys    -       map virtual addresses to physical
 *      @address: address to remap
 *
 *      The returned physical address is the physical (CPU) mapping for
 *      the memory address given. It is only valid to use this function on
 *      addresses directly mapped or allocated via kmalloc. 
 *
 *      This function does not give bus mappings for DMA transfers. In
 *      almost all conceivable cases a device driver should not be using
 *      this function
 */
 
static inline unsigned long virt_to_phys(volatile void * address)
{
        return __pa(address);
}
 
/**
 *      phys_to_virt    -       map physical address to virtual
 *      @address: address to remap
 *
 *      The returned virtual address is a current CPU mapping for
 *      the memory address given. It is only valid to use this function on
 *      addresses that have a kernel mapping
 *
 *      This function does not handle bus mappings for DMA transfers. In
 *      almost all conceivable cases a device driver should not be using
 *      this function
 */
 
static inline void * phys_to_virt(unsigned long address)
{
        return __va(address);
}
 
/*
 * Change "struct page" to physical address.
 */
#define page_to_phys(page)    ((dma_addr_t)page_to_pfn(page) << PAGE_SHIFT)
 
extern void __iomem * __ioremap(unsigned long offset, unsigned long size, unsigned long flags);
 
/**
 * ioremap     -   map bus memory into CPU space
 * @offset:    bus address of the memory
 * @size:      size of the resource to map
 *
 * ioremap performs a platform specific sequence of operations to
 * make bus memory CPU accessible via the readb/readw/readl/writeb/
 * writew/writel functions and the other mmio helpers. The returned
 * address is not guaranteed to be usable directly as a virtual
 * address. 
 */
 
static inline void __iomem * ioremap(unsigned long offset, unsigned long size)
{
        return __ioremap(offset, size, 0);
}
 
extern void __iomem * ioremap_nocache(unsigned long offset, unsigned long size);
extern void iounmap(volatile void __iomem *addr);
 
/*
 * bt_ioremap() and bt_iounmap() are for temporary early boot-time
 * mappings, before the real ioremap() is functional.
 * A boot-time mapping is currently limited to at most 16 pages.
 */
extern void *bt_ioremap(unsigned long offset, unsigned long size);
extern void bt_iounmap(void *addr, unsigned long size);
 
/* Use early IO mappings for DMI because it's initialized early */
#define dmi_ioremap bt_ioremap
#define dmi_iounmap bt_iounmap
#define dmi_alloc alloc_bootmem
 
/*
 * ISA I/O bus memory addresses are 1:1 with the physical address.
 */
#define isa_virt_to_bus virt_to_phys
#define isa_page_to_bus page_to_phys
#define isa_bus_to_virt phys_to_virt
 
/*
 * However PCI ones are not necessarily 1:1 and therefore these interfaces
 * are forbidden in portable PCI drivers.
 *
 * Allow them on x86 for legacy drivers, though.
 */
#define virt_to_bus virt_to_phys
#define bus_to_virt phys_to_virt
 
/*
 * readX/writeX() are used to access memory mapped devices. On some
 * architectures the memory mapped IO stuff needs to be accessed
 * differently. On the x86 architecture, we just read/write the
 * memory location directly.
 */
 
static inline unsigned char readb(const volatile void __iomem *addr)
{
        return *(volatile unsigned char __force *) addr;
}
static inline unsigned short readw(const volatile void __iomem *addr)
{
        return *(volatile unsigned short __force *) addr;
}
static inline unsigned int readl(const volatile void __iomem *addr)
{
        return *(volatile unsigned int __force *) addr;
}
#define readb_relaxed(addr) readb(addr)
#define readw_relaxed(addr) readw(addr)
#define readl_relaxed(addr) readl(addr)
#define __raw_readb readb
#define __raw_readw readw
#define __raw_readl readl
 
static inline void writeb(unsigned char b, volatile void __iomem *addr)
{
        *(volatile unsigned char __force *) addr = b;
}
static inline void writew(unsigned short b, volatile void __iomem *addr)
{
        *(volatile unsigned short __force *) addr = b;
}
static inline void writel(unsigned int b, volatile void __iomem *addr)
{
        *(volatile unsigned int __force *) addr = b;
}
#define __raw_writeb writeb
#define __raw_writew writew
#define __raw_writel writel
 
#define mmiowb()
 
static inline void memset_io(volatile void __iomem *addr, unsigned char val, int count)
{
        memset((void __force *) addr, val, count);
}
static inline void memcpy_fromio(void *dst, const volatile void __iomem *src, int count)
{
        __memcpy(dst, (void __force *) src, count);
}
static inline void memcpy_toio(volatile void __iomem *dst, const void *src, int count)
{
        __memcpy((void __force *) dst, src, count);
}
 
 * explicitly ioremap() it. The fact that the ISA IO space is mapped
 * to PAGE_OFFSET is pure coincidence - it does not mean ISA values
 * are physical addresses. The following constant pointer can be
 * used as the IO-area pointer (it can be iounmapped as well, so the
 * analogy with PCI is quite large):
 */
#define __ISA_IO_base ((char __iomem *)(PAGE_OFFSET))
 
/*
 * Again, i386 does not require mem IO specific function.
 */
 
#define eth_io_copy_and_sum(a,b,c,d)            eth_copy_and_sum((a),(void __force *)(b),(c),(d))
 
/**
 *      check_signature         -       find BIOS signatures
 *      @io_addr: mmio address to check 
 *      @signature:  signature block
 *      @length: length of signature
 *
 *      Perform a signature comparison with the mmio address io_addr. This
 *      address should have been obtained by ioremap.
 *      Returns 1 on a match.
 */
 
static inline int check_signature(volatile void __iomem * io_addr,
        const unsigned char *signature, int length)
{
        int retval = 0;
        do {
                if (readb(io_addr) != *signature)
                        goto out;
                io_addr++;
                signature++;
                length--;
        } while (length);
        retval = 1;
out:
        return retval;
}
 
/*
 *      Cache management
 *
 *      This needed for two cases
 *      1. Out of order aware processors
 *      2. Accidentally out of order processors (PPro errata #51)
 */
 
#if defined(CONFIG_X86_OOSTORE) || defined(CONFIG_X86_PPRO_FENCE)
 
static inline void flush_write_buffers(void)
{
        __asm__ __volatile__ ("lock; addl $0,0(%%esp)": : :"memory");
}
 
#define dma_cache_inv(_start,_size)             flush_write_buffers()
#define dma_cache_wback(_start,_size)           flush_write_buffers()
#define dma_cache_wback_inv(_start,_size)       flush_write_buffers()
 
#else
 
/* Nothing to do */
 
#define dma_cache_inv(_start,_size)             do { } while (0)
#define dma_cache_wback(_start,_size)           do { } while (0)
#define dma_cache_wback_inv(_start,_size)       do { } while (0)
#define flush_write_buffers()
 
#endif
 
#endif /* __KERNEL__ */
 
#ifdef SLOW_IO_BY_JUMPING
#define __SLOW_DOWN_IO "jmp 1f; 1: jmp 1f; 1:"
#else
#define __SLOW_DOWN_IO "outb %%al,$0x80;"
#endif
 
static inline void slow_down_io(void) {
        __asm__ __volatile__(
                __SLOW_DOWN_IO
#ifdef REALLY_SLOW_IO
                __SLOW_DOWN_IO __SLOW_DOWN_IO __SLOW_DOWN_IO
#endif
                : : );
}
 
#ifdef CONFIG_X86_NUMAQ
extern void *xquad_portio;    /* Where the IO area was mapped */
#define XQUAD_PORT_ADDR(port, quad) (xquad_portio + (XQUAD_PORTIO_QUAD*quad) + port)
#define __BUILDIO(bwl,bw,type) \
static inline void out##bwl##_quad(unsigned type value, int port, int quad) { \
        if (xquad_portio) \
                write##bwl(value, XQUAD_PORT_ADDR(port, quad)); \
        else \
                out##bwl##_local(value, port); \
} \
static inline void out##bwl(unsigned type value, int port) { \
        out##bwl##_quad(value, port, 0); \
} \
static inline unsigned type in##bwl##_quad(int port, int quad) { \
        if (xquad_portio) \
                return read##bwl(XQUAD_PORT_ADDR(port, quad)); \
        else \
                return in##bwl##_local(port); \
} \
static inline unsigned type in##bwl(int port) { \
        return in##bwl##_quad(port, 0); \
}
#else
#define __BUILDIO(bwl,bw,type) \
static inline void out##bwl(unsigned type value, int port) { \
        out##bwl##_local(value, port); \
} \
static inline unsigned type in##bwl(int port) { \
        return in##bwl##_local(port); \
}
#endif
 
 
#define BUILDIO(bwl,bw,type) \
static inline void out##bwl##_local(unsigned type value, int port) { \
        __asm__ __volatile__("out" #bwl " %" #bw "0, %w1" : : "a"(value), "Nd"(port)); \
} \
static inline unsigned type in##bwl##_local(int port) { \
        unsigned type value; \
        __asm__ __volatile__("in" #bwl " %w1, %" #bw "0" : "=a"(value) : "Nd"(port)); \
        return value; \
} \
static inline void out##bwl##_local_p(unsigned type value, int port) { \
        out##bwl##_local(value, port); \
        slow_down_io(); \
} \
static inline unsigned type in##bwl##_local_p(int port) { \
        unsigned type value = in##bwl##_local(port); \
        slow_down_io(); \
        return value; \
} \
__BUILDIO(bwl,bw,type) \
static inline void out##bwl##_p(unsigned type value, int port) { \
        out##bwl(value, port); \
        slow_down_io(); \
} \
static inline unsigned type in##bwl##_p(int port) { \
        unsigned type value = in##bwl(port); \
        slow_down_io(); \
        return value; \
} \
static inline void outs##bwl(int port, const void *addr, unsigned long count) { \
        __asm__ __volatile__("rep; outs" #bwl : "+S"(addr), "+c"(count) : "d"(port)); \
} \
static inline void ins##bwl(int port, void *addr, unsigned long count) { \
        __asm__ __volatile__("rep; ins" #bwl : "+D"(addr), "+c"(count) : "d"(port)); \
}
 
BUILDIO(b,b,char)
BUILDIO(w,w,short)
BUILDIO(l,,int)
 
#endif

Donc, je doit trouver autre chose ... à moins que ...

[PRomu@ld]

et ?

[Invité]

Et donc, je suis toujours à la recherche d'une solution avec Ada. Il doit bien y avoir un moyen, non ?

[PRomu@ld]

Comme je te l'ai dit au dessus, utilises directement le code assembleur.

http://www.mattjustice.com/parport/par_asm.html

ou encore :

http://webster.cs.ucr.edu/AoA/DOS/ch21/CH21-1.html

[Invité]

Merci PRomu@ld.

Je tenterai avec Machine_Code dans les prochains jours.

[scriptoff]

dans la manpage de outb :

You use ioperm(2) or alternatively iopl(2) to tell the kernel to allow
the user space application to access the I/O ports in question. Fail-
ure to do this will cause the application to receive a segmentation
fault.

[PRomu@ld]

Pas très aidant non plus.

On savait que outb était une macro, elle fait donc soit du code assembleur pur soit appel à d'autres fonctions. Pas très inattendu

[Invité]

Comme je te l'ai dit au dessus, utilises directement le code assembleur.

http://www.mattjustice.com/parport/par_asm.html

ou encore :

http://webster.cs.ucr.edu/AoA/DOS/ch21/CH21-1.html

Merci Promu@ID.

Un petit bout de code qui écrit une valeur 8bit sur le registre de donnée du port parallèle situé à l'adresse 0x378, et retourne la valeur courante sur ce même port (soit celle que l'on vient d'écrire si tout marche bien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
with Interfaces.C;
use Interfaces;
with System.Machine_Code;
use System.Machine_Code;
with Ada.Text_Io;
procedure Main is
 
   function Ioperm(From : in C.Unsigned_Long;
                   Num : in C.Unsigned_Long;
                   Tuen_On : in C.Int) return C.Int;
   pragma Import(C, Ioperm, "ioperm");
 
 
   use Ascii;
 
   LPT1     : constant Unsigned_16 := 16#0378#;
   In_Value : Unsigned_8 := 0;
   Out_Value : Unsigned_8 := 0;
   Errno : C.Int;
begin
   Ada.Text_Io.Put("Open port... ");
   Errno := Ioperm(C.Unsigned_Long(LPT1), 3, 1);
   Ada.Text_Io.Put_Line("done.");
   Asm(  "mov %2,   %%al" & LF & HT &
         "mov %1,   %%dx" & LF & HT &
         "out %%al, %%dx" & LF & HT &
         "in  %%dx, %%al" & LF & HT &
         "mov %0,   %%al",
         Inputs  => (Unsigned_16'Asm_Input ("g", LPT1), Unsigned_8'Asm_Input ("b", In_Value)),
         Outputs => Unsigned_8'Asm_Output ("=b", Out_Value));
 
   Ada.Text_Io.Put_Line("Value = " & Unsigned_8'Image(Out_Value));
   Ada.Text_Io.Put("Close port... ");
   Errno := Ioperm(C.Unsigned_Long(LPT1), 3, 0);
   Ada.Text_Io.Put_Line("done.");
end Main;