File: parse-source

package info (click to toggle)
asis 2019-5
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 13,848 kB
  • sloc: ada: 156,772; makefile: 296; sh: 81; xml: 48; csh: 10
file content (19 lines) | stat: -rw-r--r-- 409 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 "$AUTOPKGTEST_TMP"

cp -a /usr/share/doc/asis-programs/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