mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-24 02:12:50 -06:00
changed names of resource-1.3; added a note on homepage on release
This commit is contained in:
43
old-examples/unix/UnixUni.gf
Normal file
43
old-examples/unix/UnixUni.gf
Normal file
@@ -0,0 +1,43 @@
|
||||
--# -path=.:prelude
|
||||
|
||||
concrete UnixUni of Unix = CharUni ** open Prelude in {
|
||||
|
||||
flags unlexer=bind ;
|
||||
|
||||
{-
|
||||
lincat
|
||||
Line ;
|
||||
[Command] {1} ;
|
||||
Command ;
|
||||
File ;
|
||||
-}
|
||||
|
||||
lin
|
||||
CommWords w = w ;
|
||||
|
||||
Redirect = infixSS ">" ;
|
||||
Pipe = infixSS "|" ;
|
||||
Comm c = c ;
|
||||
|
||||
WhatTime = ss ["date +%D"] ;
|
||||
WhatDate = ss ["date +%T"] ;
|
||||
WhereNow = ss ["pwd"] ;
|
||||
Remove = prefixSS "rm" ;
|
||||
Copy x y = ss ("cp" ++ x.s ++ y.s) ;
|
||||
Linecount = prefixSS ["wc -l"] ;
|
||||
Wordcount = prefixSS ["wc -w"] ;
|
||||
Grep x y = ss ("grep" ++ x.s ++ y.s) ;
|
||||
Cat = prefixSS "cat" ;
|
||||
|
||||
It = ss [] ;
|
||||
|
||||
FileChars c = c ;
|
||||
WordChars c = c ;
|
||||
|
||||
FileSuffix = prefixSS ["* &+"] ;
|
||||
FilePrefix = postfixSS ["&+ *"] ;
|
||||
|
||||
BaseWord w = w ;
|
||||
ConsWord = cc2 ;
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user