From ace24e04ec402a12873a7b9bfd4b050e9054347a Mon Sep 17 00:00:00 2001 From: Justin Davis Date: Sun, 15 Apr 2012 12:08:35 -0400 Subject: Fix typo which adds misplaced perl code to PKGBUILD. --- bin/modpkg | 74 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ bin/modpkgmeta | 74 ---------------------------------------------------------- 2 files changed, 74 insertions(+), 74 deletions(-) create mode 100755 bin/modpkg delete mode 100755 bin/modpkgmeta (limited to 'bin') diff --git a/bin/modpkg b/bin/modpkg new file mode 100755 index 0000000..8d8066e --- /dev/null +++ b/bin/modpkg @@ -0,0 +1,74 @@ +#!/usr/bin/env io + +PFieldVal := Object clone +PFieldVal do( + stringValue := nil + ownerField := nil + + moveTo := method(newOwner, + ownerField removeValue(self) + ownerField = newOwner addValue(self) + self + ) + matches := method(start, + stringValue beginsWithSeq(start) + ) + asString := method(stringValue) +) + +PFieldValMux := Object clone +PFieldValMux do( + init := method( + self fieldVals := List clone + ) + addValue := method(fv, + fieldVals append(fv) + self + ) + moveTo := method(destField, + fieldVals foreach(fv, + fv moveTo(destField) + ) + self + ) + asList := method( + fieldVals + ) +) + +PField := Object clone +PField do( + init := method( + self fieldVals := List clone + ) + match := method( + mux := PFieldValMux clone + call evalArgs foreach(arg, + fieldVals foreach(fv, + fv matches(arg) ifTrue(mux addValue(fv)) + ) + ) + mux + ) + addValue := method(newFV, + fieldVals append(newFV) + newFV ownerField = self + self + ) + removeValue := method(fv, + fieldVals remove(fv) + self + ) +) + +depends := PField clone +list("foo", "bar") foreach(str, + val := PFieldVal clone + val stringValue = str + depends addValue(val) +) + +checkdepends := PField clone +depends match("foo", "bar") moveTo(checkdepends) +checkdepends fieldVals foreach(fv, fv asString println) +checkdepends println diff --git a/bin/modpkgmeta b/bin/modpkgmeta deleted file mode 100755 index 8d8066e..0000000 --- a/bin/modpkgmeta +++ /dev/null @@ -1,74 +0,0 @@ -#!/usr/bin/env io - -PFieldVal := Object clone -PFieldVal do( - stringValue := nil - ownerField := nil - - moveTo := method(newOwner, - ownerField removeValue(self) - ownerField = newOwner addValue(self) - self - ) - matches := method(start, - stringValue beginsWithSeq(start) - ) - asString := method(stringValue) -) - -PFieldValMux := Object clone -PFieldValMux do( - init := method( - self fieldVals := List clone - ) - addValue := method(fv, - fieldVals append(fv) - self - ) - moveTo := method(destField, - fieldVals foreach(fv, - fv moveTo(destField) - ) - self - ) - asList := method( - fieldVals - ) -) - -PField := Object clone -PField do( - init := method( - self fieldVals := List clone - ) - match := method( - mux := PFieldValMux clone - call evalArgs foreach(arg, - fieldVals foreach(fv, - fv matches(arg) ifTrue(mux addValue(fv)) - ) - ) - mux - ) - addValue := method(newFV, - fieldVals append(newFV) - newFV ownerField = self - self - ) - removeValue := method(fv, - fieldVals remove(fv) - self - ) -) - -depends := PField clone -list("foo", "bar") foreach(str, - val := PFieldVal clone - val stringValue = str - depends addValue(val) -) - -checkdepends := PField clone -depends match("foo", "bar") moveTo(checkdepends) -checkdepends fieldVals foreach(fv, fv asString println) -checkdepends println -- cgit v1.2.3-24-g4f1b