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