[LANG][TM] Digital Command Language. Langage de commande conçu par Digital et que l'on trouve sur les VAX. Les fichiers exécutables portent l'extension « .COM ». Exemple de code (extrait d'un programme paru dans Phrack # 19) :
- hdir = f$trnlnm("SYS$LOGIN")
- ndir = f$edit(p1,"UPCASE")
- odir = f$environment("DEFAULT")
- prompton = (f$edit(f$trnlnm("SYS$PROMPT"),"UPCASE") .eqs. "ON")
- if (ndir .eqs. "") then goto DISPLAY
- if (ndir .eqs. "*") then goto DIRSEARCH
- if (ndir .eqs. "?") then goto HELP
- PARSE:
- length = f$length(ndir)
- if (f$location("@",ndir) .eq. 0) .or. -
- (f$location("$",ndir) .eq. 0) then ndir = f$extract(1, length - 1, ndir)
- right = f$location("]",ndir) + 1
- if (right .gt. length) then right = f$location(">", ndir)
- if (right .le. length) then ndir = f$extract(0, right, ndir)
- if (f$trnlnm(ndir) .eqs. "") then goto CASESYM
- ndir = f$trnlnm(ndir)
- goto PARSE
- CASESYM:
|