Sync

Task/Program-name/Applesoft-BASIC/program-name.applesoft

@@ -0,0 +1,61 @@
+10 GOSUB 40"GET PROGRAM NAME
+20 PRINT N$
+30 END
+
+40 REMGET PROGRAM NAME
+50 GOSUB 100"GET INPUT BUFFER
+60 GOSUB 200"REMOVE RUN PREFIX
+70 GOSUB 300"REMOVE , SUFFIXES
+80 GOSUB 400"TRIM SPACES
+90 RETURN
+
+100 REMGET INPUT BUFFER
+110 N$ = ""
+120 FOR I = 512 TO 767
+130     B =  PEEK (I) - 128
+140     IF B < 32 THEN  RETURN
+150     N$ = N$ +  CHR$ (B)
+160 NEXT I
+170 RETURN
+
+200 REMREMOVE RUN PREFIX
+210 P = 1
+220 FOR I = 1 TO 3
+230     FOR J = P TO LEN(N$)
+240         C$ =  MID$ (N$,J,1)
+250         P = P + 1
+260         IF C$ = " " THEN  NEXT J
+270         IF C$ = MID$("RUN",I,1) THEN NEXT I:N$ =  MID$(N$,P,LEN(N$)-P+1):RETURN
+280 PRINT "YOU NEED TO RUN THIS PROGRAM USING THE  RUN COMMAND FROM DOS."
+290 END
+
+300 REMREMOVE , SUFFIXES
+310 L =  LEN (N$)
+320 FOR I = 1 TO L
+330     C$ =  MID$ (N$,I,1)
+340     IF C$ = "," THEN N$ =  LEFT$(N$,I - 1): RETURN
+350 NEXT I
+360 RETURN
+
+400 REMTRIM SPACES
+410 GOSUB 600
+
+500 REMLEFT TRIM SPACES
+510 L = LEN(N$) - 1
+520 FOR I = L TO 0 STEP -1
+530     IF I < 0 THEN RETURN
+540     IF LEFT$ (N$,1) <> " " THEN RETURN
+550     IF I THEN N$ = RIGHT$ (N$, I)
+560 NEXT I
+570 N$ = "
+580 RETURN
+
+600 REMRIGHT TRIM SPACES
+610 L = LEN(N$) - 1
+620 FOR I = L TO 0 STEP -1
+630     IF I < 0 THEN RETURN
+640     IF RIGHT$ (N$,1) <> " " THEN RETURN
+650     IF I THEN N$ = LEFT$ (N$, I)
+660 NEXT I
+670 N$ = "
+680 RETURN

Task/Program-name/Fortran/program-name.f

@@ -0,0 +1,47 @@
+! program run with invalid name path/f
+!
+!-*- mode: compilation; default-directory: "/tmp/" -*-
+!Compilation started at Sun Jun  2 00:18:31
+!
+!a=./f && make $a && OMP_NUM_THREADS=2 $a < unixdict.txt
+!gfortran -std=f2008 -Wall -fopenmp -ffree-form -fall-intrinsics -fimplicit-none f.f08 -o f
+!
+!Compilation finished at Sun Jun  2 00:18:31
+
+
+
+! program run with valid name path/rcname
+!
+!-*- mode: compilation; default-directory: "/tmp/" -*-
+!Compilation started at Sun Jun  2 00:19:01
+!
+!gfortran -std=f2008 -Wall -fopenmp -ffree-form -fall-intrinsics -fimplicit-none f.f08 -o rcname && ./rcname
+! ./rcname approved.
+! program continues...
+!
+!Compilation finished at Sun Jun  2 00:19:02
+
+
+module sundry
+
+contains
+
+  subroutine verify_name(required)
+    ! name verification reduces the ways an attacker can rename rm as cp.
+    character(len=*), intent(in) :: required
+    character(len=1024) :: name
+    integer :: length, status
+    ! I believe get_command_argument is part of the 2003 FORTRAN standard intrinsics.
+    call get_command_argument(0, name, length, status)
+    if (0 /= status) stop
+    if ((len_trim(name)+1) .ne. (index(name, required, back=.true.) + len(required))) stop
+    write(6,*) trim(name)//' approved.'
+  end subroutine verify_name
+
+end module sundry
+
+program name
+  use sundry
+  call verify_name('rcname')
+  write(6,*)'program continues...'
+end program name

Task/Program-name/Nemerle/program-name.nemerle

@@ -0,0 +1,4 @@
+using System.Environment;
+...
+def program_name = GetCommandLineArgs()[0];
+...

Task/Program-name/Rust/program-name-1.rust

@@ -1,3 +1,5 @@
+// rust 0.8
+
 fn main() {
-    io::println(fmt!("Program: %s", os::args()[0]));
+    println!("Program: {}", std::os::args()[0]);
 }