WebSVN – svn.Prod repos – Diff – /filefind/elixir/filefind.exs


#! /usr/bin/env elixir
# https://rosettacode.org/wiki/Walk_a_directory/Recursively
 
 
# =============================================================================
# Create
# name  : Andre Rikkert de Koe          date:	mar 2018 
# descr : filefind
#         This is a demo of programming in the elixir language.
#         Its part of a project to implement a program to create a directory
#         tree similar to the output of the Unix find program.
# EUID  : Any user who has read access to all the files being searched for.
# run   : interactive
#
# Changes
# name  :                               date:
# descr : short description
#
# =============================================================================
 
# =============================================================================
# Functions
# =============================================================================
 
defmodule DezeModule do
 
	def usage(progname, mesg) do
		IO.puts "Usage: " <> progname <> " filefind" 
		IO.puts mesg	
	end
 
	def traverse(directory) do
		File.cd!(directory)
		curdir2 = System.cwd()
		files = File.ls!(directory)
		for file <- files do
			pfile = curdir2 <> "/" <> file
			IO.puts pfile
			if File.dir?(pfile) do
				traverse(pfile)
			end
		end
	end
 
	def start_traverse(directory) do
		IO.puts directory
		traverse(directory)
	end
end
 
# =============================================================================
# Main
# =============================================================================
#
progname = System.cwd()
 
if length(System.argv) == 1 do
	directory = Enum.at(System.argv(), 0)
	if File.dir?(directory)
	do
		DezeModule.start_traverse(directory)
	else
		DezeModule.usage(progname, "ERROR: Not a directory : " <> directory)
	end
else
	DezeModule.usage(progname, "ERROR: 1 argument expected")
end

Rev 40	Rev 41
1	#! /usr/bin/env elixir	1	#! /usr/bin/env elixir
2	# https://rosettacode.org/wiki/Walk_a_directory/Recursively	2	# https://rosettacode.org/wiki/Walk_a_directory/Recursively
3	# TODO : de hele traversal nog schrijven, dit is alleen argument parsing	-
4		3
5	# =============================================================================	4	# =============================================================================
6	# Create	5	# Create
7	# name : Andre Rikkert de Koe date: mar 2018	6	# name : Andre Rikkert de Koe date: mar 2018
8	# descr : filefind	7	# descr : filefind
9	# This is a demo of programming in the elixir language.	8	# This is a demo of programming in the elixir language.
10	# Its part of a project to implement a program to create a directory	9	# Its part of a project to implement a program to create a directory
11	# tree similar to the output of the Unix find program.	10	# tree similar to the output of the Unix find program.
12	# EUID : Any user who has read access to all the files being searched for.	11	# EUID : Any user who has read access to all the files being searched for.
13	# run : interactive	12	# run : interactive
14	#	13	#
15	# Changes	14	# Changes
16	# name : date:	15	# name : date:
17	# descr : short description	16	# descr : short description
18	#	17	#
19	# =============================================================================	18	# =============================================================================
20		19
21	# =============================================================================	20	# =============================================================================
22	# Functions	21	# Functions
23	# =============================================================================	22	# =============================================================================
24		23
25	defmodule DezeModule do	24	defmodule DezeModule do
26		25
27	def usage(progname, mesg) do	26	def usage(progname, mesg) do
28	IO.puts "Usage: " <> progname <> " filefind"	27	IO.puts "Usage: " <> progname <> " filefind"
29	IO.puts mesg	28	IO.puts mesg
30	end	29	end
31		30
32	def traverse(directory) do	31	def traverse(directory) do
33	File.cd!(directory)	32	File.cd!(directory)
34	curdir2 = System.cwd()	33	curdir2 = System.cwd()
35	files = File.ls!(directory)	34	files = File.ls!(directory)
36	for file <- files do	35	for file <- files do
37	pfile = curdir2 <> "/" <> file	36	pfile = curdir2 <> "/" <> file
38	IO.puts pfile	37	IO.puts pfile
39	if File.dir?(pfile) do	38	if File.dir?(pfile) do
40	traverse(pfile)	39	traverse(pfile)
41	end	40	end
42	end	41	end
43	end	42	end
44		43
45	def start_traverse(directory) do	44	def start_traverse(directory) do
46	IO.puts directory	45	IO.puts directory
47	traverse(directory)	46	traverse(directory)
48	end	47	end
49	end	48	end
50		49
51	# =============================================================================	50	# =============================================================================
52	# Main	51	# Main
53	# =============================================================================	52	# =============================================================================
54	#	53	#
55	progname = System.cwd()	54	progname = System.cwd()
56		55
57	if length(System.argv) == 1 do	56	if length(System.argv) == 1 do
58	directory = Enum.at(System.argv(), 0)	57	directory = Enum.at(System.argv(), 0)
59	if File.dir?(directory)	58	if File.dir?(directory)
60	do	59	do
61	DezeModule.start_traverse(directory)	60	DezeModule.start_traverse(directory)
62	else	61	else
63	DezeModule.usage(progname, "ERROR: Not a directory : " <> directory)	62	DezeModule.usage(progname, "ERROR: Not a directory : " <> directory)
64	end	63	end
65	else	64	else
66	DezeModule.usage(progname, "ERROR: 1 argument expected")	65	DezeModule.usage(progname, "ERROR: 1 argument expected")
67	end	66	end

Subversion Repositories svn.Prod repos

(root)/filefind/elixir/filefind.exs – Rev 40 → 41