File: interpreter_and_program.yab

package info (click to toggle)
yabasic 1%3A2.90.3-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 4,104 kB
  • sloc: ansic: 12,214; sh: 4,417; makefile: 21
file content (6 lines) | stat: -rwxr-xr-x 404 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
 
i$ = peek$("interpreter_path")
ii$ = chomp$(system$( i$ + " -e 'print peek$(\"interpreter_path\")'"))
print i$, ii$
if i$ <> ii$ error "Peek interpreter_path not repeatable: " + i$ + " " + ii$ 
if peek$("program_name") <> "interpreter_and_program.yab" error "Peek program_name has problems"
if not glob(peek$("program_file_name"), "*" + peek$("program_name")) error "Peek program_file_name has problems"