DataMuseum.dk

Presents historical artifacts from the history of:

Regnecentalen RC-900

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Regnecentalen RC-900

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦51dec850c⟧ TextFile

    Length: 3871 (0xf1f)
    Types: TextFile
    Notes: UNIX file
    Names: »find«

Derivation

└─⟦c93a30372⟧ Bits:30004169/disk3.imd Uniplex II+ V.6 release 1.0 (dansk)
└─⟦c93a30372⟧ UNIX Filesystem
    └─⟦this⟧ »up/new/usr/UAP/ufill/usrc/find« 

TextFile

V.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T....H..
:TITLE
F I N D   O P G A V E   V I A   N A V N

:SCREEN


 DAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF@@
 [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
 B Angiv opgavenavn                B[document_____________________________]B@@
 [                                 [                                       [
 B (eller m▶9b◀nster, eks:  min.fil*) B                                       B@@
 [                                 [                                       [
 B                                 B                                       B@@
 [                                 [                                       [
 B Katalog, hvorfra s▶9b◀gning skal   B[directory____________________________]B@@
 [                                 [                                       [
 B starte                          B                                       B@@
 [                                 [                                       [
 B                                 B                                       B@@
 [                                 [                                       [
 B Komplet opgavestatus            B[detail___________]                    B@@
 [                                 [                                       [
 B                                 B                                       B@@
 [                                 [                                       [
 B Resultat af s▶9b◀gning             B[output_______________________________]B@@
 [                                 [                                       [
 B (eller sletning af opgave(r))   B                                       B@@
 [                                 [                                       [
 JAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH@@
 [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
:LABELS
document  = type char, default = $(1), minimum = 1,
            prompt = "Angiv navn p▶86◀ den opgave, der skal findes";
directory = type char, default = "./", minimum = 1, prompt =
"Der s▶9b◀ges i det angivne samt i underliggende kataloger - ./  = aktuelt katalog";

detail    = type char, reply = "Kun opgavenavn!Komplet status",
            prompt = "Tryk <MELLEMRUM> for at v▶91◀lge";

output    = type char, reply =
"P▶86◀ sk▶91◀rm!I opgaven 'find.opg'!P▶86◀ sk▶91◀rm med interaktiv sletning",
            prompt = "Tryk <MELLEMRUM> for at v▶91◀lge";

:MAPS

if $(detail) = "Kun opgavenavn"
   set $(DETAIL) "-print"
else
   set $(DETAIL) "-exec ls -al {} \;"
endif

if $(output) = "I opgaven 'find.opg'"
   set $(OUTPUT) "> find.opg &"
else
   set $(OUTPUT) " "
endif
if $(output) = "P▶86◀ sk▶91◀rm med interaktiv sletning"
:C Modify OUTPUT to interactive remove string
   set $(OUTPUT) "-ok rm -f {} \;"
endif

:COMMANDS
clear
find $(directory) -name '$(document)' $(DETAIL) $(OUTPUT)
exit 0

:HELP
  FIND OPGAVE VIA NAVN

..V..............T......T.......T.......T.......T...........................H..
  Med denne funktion kan man finde opgavers placering i filsystemet, hvis
  opgavenavnet er kendt.

..V..............T....H.V.......T.......T.......T...........................H..
  Angiv opgavenavn      Angiv navn p▶86◀ opgaven, der skal findes. Der kan
                        bruges jokertegn.

  Katalog, hvorfra      Angiv katalognavn. Uniplex s▶9b◀ger i det angivne
  s▶9b◀gning skal starte   katalog samt i underliggende kataloger.

  Komplet opgavestatus  Med <MELLEMRUM> v▶91◀lges enten KUN OPGAVENAVN eller
                        KOMPLET OPGAVESTATUS.

  Resultat af s▶9b◀gning   Med <MELLEMRUM> v▶91◀lges enten P▶86◀ SK▶92◀RM, I OPGAVEN
                        'find.opg' eller P▶8f◀ SK▶92◀RM MED INTERAKTIV SLETNING.