working bash wrapper
This commit is contained in:
		
							parent
							
								
									79d25d0d73
								
							
						
					
					
						commit
						de1970dbc7
					
				
							
								
								
									
										20
									
								
								icecast-ssl-helper
									
									
									
									
									
										Executable file
									
								
							
							
						
						
									
										20
									
								
								icecast-ssl-helper
									
									
									
									
									
										Executable file
									
								
							@ -0,0 +1,20 @@
 | 
			
		||||
#!/bin/env bash
 | 
			
		||||
 | 
			
		||||
## guile_installed () {
 | 
			
		||||
##   if $(which guile)
 | 
			
		||||
##   then
 | 
			
		||||
##     GUILE_BIN="guile"
 | 
			
		||||
##   elif $(which guile3.0)
 | 
			
		||||
##   then
 | 
			
		||||
##     GUILE_BIN="guile3.0"
 | 
			
		||||
##   else
 | 
			
		||||
##     which apt && sudo apt install guile-3.0 || echo -e "\nERROR: apt Package Manager not found.\n\
 | 
			
		||||
##     This script only supports Debian-based Linux Distributions which use the apt package manager, like Raspbian OS." && exit 127
 | 
			
		||||
##   fi
 | 
			
		||||
## }
 | 
			
		||||
 | 
			
		||||
## guile_installed
 | 
			
		||||
 | 
			
		||||
GUILE_BIN="guile3.0"
 | 
			
		||||
 | 
			
		||||
$GUILE_BIN -s icecast-ssl-helper.scm
 | 
			
		||||
							
								
								
									
										8
									
								
								icecast-ssl-helper.scm
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										8
									
								
								icecast-ssl-helper.scm
									
									
									
									
									
										Normal file
									
								
							@ -0,0 +1,8 @@
 | 
			
		||||
(use-modules (ssh session))
 | 
			
		||||
 | 
			
		||||
(display "Hello there.\n")
 | 
			
		||||
 | 
			
		||||
(define (myproc x y)
 | 
			
		||||
  (string-append "x is " x "\nand y is " y "\n"))
 | 
			
		||||
 | 
			
		||||
(values (myproc "7" "9"))
 | 
			
		||||
		Loading…
	
		Reference in New Issue
	
	Block a user