File: parse-source

package info (click to toggle)
asis 2018-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 13,528 kB
  • sloc: ada: 155,205; makefile: 297; sh: 67; xml: 48; csh: 10
file content (19 lines) | stat: -rw-r--r-- 395 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!/bin/sh
set -C -e -u
cd "$ADTTMP"

cp -a /usr/share/doc/asis-doc/examples/tutorial/using_asistant/ex_p*.ad[bs] .
gnatmake -eS -v -c -gnatc -gnatt ex_proc.adb
cat > script <<EOF
set (Cont)
initialize ("")
associate (Cont, "", "")
open (Cont)
set (CU_1, Compilation_Unit_Body ("Ex_Proc", cont))
print (Unit_Full_Name (CU_1))
Close (Cont)
Dissociate (Cont)
Finalize ("")
quit
EOF
asistant script